(repeat-history-command): Bug fix. Someone forgot a car.

diff --git a/lisp/chistory.el b/lisp/chistory.el
index 403fb0b24e9610c0ab18f3cca74b65413daf4e47..64fe7c8688de2a66348eb046073dccaf53a61b40 100644 (file)
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -151,7 +151,7 @@ The buffer for that command is the previous current buffer."
                (beginning-of-line)
                (read (current-buffer)))
            (set-buffer
-            (cdr (buffer-list)))))))
+            (car (cdr (buffer-list))))))))
 
 ;;;###autoload
 (defun command-history-mode ()